
let compare a b = if a>b then 1 else if a=b then 0 else -1;;

let rec find name list = let name2=lowercase name in
 match list with
  |[] -> failwith "unused name"
  |(n,x)::l -> if n=name2 then x 
               else find l;;

qlet add ("name",x) = 
